home *** CD-ROM | disk | FTP | other *** search
/ Word Play Farm / Word Play Farm.iso / pc / wordplay.exe / wordplay.DXR / 00002.ls < prev    next >
Encoding:
Text File  |  1996-06-05  |  641 b   |  23 lines
  1. on exitFrame
  2.   global gProjName, gProjPath
  3.   if the machineType = 256 then
  4.     openXLib("FileIO")
  5.   end if
  6.   set gProjName to "WORDPLAY"
  7.   set gProjPath to the moviePath
  8.   set MacVolumeName to "WORDPLAY:"
  9.   set destination to "INTRO"
  10.   if machineType() = 256 then
  11.     set MoviesPath to RunFromCD("MOVIES\WORDPLAY.CFG") & "\MOVIES\"
  12.     set AUDIOPATH to MoviesPath & "AUDIO\"
  13.   else
  14.     set MoviesPath to MacVolumeName & "MOVIES:"
  15.     set AUDIOPATH to MoviesPath & "AUDIO:"
  16.   end if
  17.   append(the searchPath, AUDIOPATH)
  18.   append(the searchPath, MoviesPath)
  19.   put the searchPath
  20.   set DestPath to MoviesPath & destination
  21.   go(1, DestPath)
  22. end
  23.